home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 April / 64er_Magazin_89-04_1989_Markt__Technik_de.d64 / pythagoras v2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  239b  |  7 lines
  1. 10 a=5    :n=1:def fna(x)=x-int(x/2)*2:printn;3;4;5:def fnb(x)=x-int(x/10)*10
  2. 20 m=int(sqr(2)*a)-a:m=(fna(m)<>fna(a))+m
  3. 30 forx=mto1step-2:c=(a*a-x*x)/2/x:ifc=int(c)then goto100
  4. 40 nextx:a=a+1:goto20
  5. 100 ifint(fnb(fnb(a)^2+fnb(c)^2))=int(fnb(fnb(c+x)^2))thenn=n+1:printn;a;c;c+x
  6. 110 goto40
  7.